program dodtab;

const N=10; M=5;
var tab1,tab2,tabsum:array[0..N-1,0..M-1] of real;
    i,j:byte;


begin
  WriteLn('Wprowadz elementy pierszej tablicy: ');
  for i:=0 to N-1 do
    for j:=0 to M-1 do
     begin
       Write('Element [',i+1,',',j+1,']=');
       ReadLn(tab1[i,j]);
     end;

  WriteLn('Wprowadz elementy drugiej tablicy: ');
  for i:=0 to N-1 do
    for j:=0 to M-1 do
     begin
       Write('Element [',i+1,',',j+1,']=');
       ReadLn(tab2[i,j]);
     end;

  for i:=0 to N-1 do
   for j:=0 to M-1 do
    begin
      tabsum[i,j]:= tab1[i,j] + tab2[i,j];
      writeln('Suma elementu tablic [',i+1,',',j+1,']=',tabsum[i,j]:2:2);
    end;

    readln;

end.